home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc iv 86.d64 / reverse.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  58 lines
  1. 5 POKE53280,0:POKE53281,0:POKE54284,33:POKE54286,17:POKE54288,65
  2. 6 POKE54281,55:POKE54282,10:DIMS(15)
  3. 10 A=RND(-1/TI):B$="                    ":V=54279:FORI=0TO15:READS(I):NEXT
  4. 15 PRINTCHR$(142)"[147]THE GAME OF 'REVERSE'
  5. 20 [153]"IN THIS GAME, C-64 PUTS UP A RANDOM     LINE OF
  6. 25 PRINT" DIGITS FROM 1 TO 9":PRINT"YOU TRY TO PUT THEM
  7. 30 [153]"IN ORDER BY TELLING IT HOW MANY TO      REVERSE AT EACH TURN.":[141]3900
  8. 40 [153]"LOADFOR EXAMPLE,":[153]" 64 MAY START WITH:":[153]" CONT 9 8 7 6 1 2 3 4 5"
  9. 50 [153]"REVERSE 9 FOR:":[153]"CONT  5 4 3 2 1DEF 6 7 8 9"
  10. 55 [153]"FINALLY, REVERSE 5":[153]"TO WIN WITH:":[153]"DEF  1 2 3 4 5 6 7 8 9"
  11. 60 [153]"IFCLOSEYOU REVERSE ONLY 1, 64 WILL PLAY FOR YOU."
  12. 80 [143] PRINT"DO YOU WANT THE":PRINT"SPEEDY VERSION?":GOSUB3500
  13. 90 [141]3900
  14. 95 [129]I[178]1[164]9:A(I)[178]I:[130]I:X[178]0:SP[178]0:[139]C$[178]"Y"[167]SP[178]1
  15. 100 [153]"LOAD      REVERSE
  16. 120 FORI=1TO9:J=(10-I)*RND(1):A=A(I):A(I)=A(I+J):A(I+J)=A:B(I)=A(I):NEXTI:N=-1
  17. 130 N=N+1:PRINT"  ";:S=0
  18. 135 FORI=1TO9:PRINTA(I)"[157]";:S=S+I*A(I):NEXTI:PRINT
  19. 137 PRINTB$:PRINTB$:PRINTB$:PRINTB$"":IFS<285GOTO200
  20. 140 :POKEV,0:POKEV+1,0:POKEV+17,0
  21. 145 X=0:PRINTX$"THAT TOOK"N"[157] MOVES   [157]":IFN>10THENPRINT"[158]8YOU COULD DO BETTER)"
  22. 150 PRINT"DO YOU WANT TO TRY THE SAME ONE AGAIN?
  23. 160 [141]3500:[139]C$[179][177]"Y"[137]100
  24. 170 [129]I[178]1[164]9:A(I)[178]B(I):[130]:[153]"LOAD      RE-REVERSE  "N:N[178][171]1:[137]130
  25. 200 [153]"REVERSE HOW MANY?    CMDCMDCMD";:[151]V,0:[151]V[170]1,0:[151]V[170]17,0:[139]X[137]2000
  26. 210 [141]4000:C[178][197](C$):[139]C[178]0[137]210
  27. 215 [139]C[178]1[167]X[178]1::[153]"AIDED":[137]200
  28. 220 [153]C$:[129]I[178]1[164]C[173]2:A[178]A(I):A(I)[178]A(C[171]I[170]1):A(C[171]I[170]1)[178]A:[130]:[139]SP[137]130
  29. 230 M[178]8:[141]3000:[153][200](B$,2[170]2[172]C)
  30. 240 M[178]9[171]C[173]2:[141]3000
  31. 250 [141]3000:[129]I[178]1[164]C:[153][200](B$,2[170]3[172]C[173]2[171]I)A(I):[130]:[141]1000
  32. 300 [141]3000:[129]I[178]1[164]C:[153][200](B$,1[170]C)A(I)"CMD"[200](B$,C):[130]:[141]1000
  33. 400 [141]3000:[129]I[178]1[164]C:[153][200](B$,1[170]C[173]2[170]I)A(I)"CMD"[200](B$,3[172]C[173]2[171]I):[130]
  34. 500 [141]1000:[141]3000:[139]C[177]2[167][129]I[178]1[164](C[171]1)[173]2:[153]B$:[130]
  35. 510 [137]130
  36. 1000 [129]T[178]0[164]200:[130]:[142]
  37. 2000 [129]I[178]9[164]2[169][171]1:[139]A(I)[178]I[167][130]I
  38. 2010 Y[178]I:[139]A(1)[178]Y[137]2500
  39. 2015 C0[178]0:[129]I[178]2[164]Y:[139][182](A(I)[171]A(I[171]1))[178]1[167]C0[178]C0[170]1
  40. 2017 [130]I:C2[178]0:J[178]2
  41. 2020 [129]I[178]1[164]9:C(I)[178]A(I):[130]I
  42. 2030 [129]I[178]1[164]J[173]2:A[178]C(I):C(I)[178]C(J[171]I[170]1):C(J[171]I[170]1)[178]A:[130]I
  43. 2040 C1[178]0:[129]I[178]2[164]Y:[139][182](C(I)[171]C(I[171]1))[178]1[167]C1[178]C1[170]1
  44. 2050 [130]I:[139]C1[177]C0[167]C0[178]C1:C2[178]J:[137]2070
  45. 2060 J[178]J[170]1:[139]J[179][178]Y[137]2020
  46. 2070 I[178]C2:[139]C2[137]2500
  47. 2100 [129]I[178]2[164]Y:[139]A(I)[179][177]Y[167][130]I
  48. 2500 C$[178][196](I):C[178][197](C$):I[178]0:[137]220
  49. 3000 [153][200]("",M[170]1);
  50. 3010 [151]V[170]17,14:[151]V,S(C):[151]V[170]1,S(C):[142]
  51. 3500 [141]4000:[139]C$[178]"Y"[176]C$[178]"N"[167][142]
  52. 3510 [137]3500
  53. 3900 [153]" HIT A KEY TO CONTINUE
  54. 4000 GETC$:IFC$GOTO4000
  55. 4010 GETC$:IFC$=""GOTO4010
  56. 4020 RETURN
  57. 9000 DATA34,75,38,126,43,52,45,198,51,97,57,172,64,188,68,149
  58.